home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / lang / PPCsmalltalk.lha / PPCSmallTalk / prelude / tests.p < prev    next >
Text File  |  1986-10-19  |  748b  |  35 lines
  1. temp <- <primitive 110 3 >
  2. <primitive 112 temp 1        " three " \
  3.     #( #[ 16 128 0 242 245] \
  4.     #( #four  ) ) >
  5.  
  6. <primitive 112 temp 2        " one " \
  7.     #( #[ 64 160 96 16 32 129 1 242 245] \
  8.     #( #Two #two:  ) ) >
  9.  
  10. <primitive 112 temp 3        " start " \
  11.     #( #[ 32 128 0 243 245] \
  12.     #( #one  ) ) >
  13.  
  14. <primitive 98 #One \
  15.     <primitive 97 #One #Object #Smalltalk:prelude/tests.st \
  16.     #(  #two ) \
  17.     #( #three #one #start  ) \
  18.     temp 1 3 > >
  19.  
  20. temp <- <primitive 110 2 >
  21. <primitive 112 temp 1        " four " \
  22.     #( #[ 48 168 242 32 128 1 242 245] \
  23.     #( 'in four' #gak  ) ) >
  24.  
  25. <primitive 112 temp 2        " two: " \
  26.     #( #[ 33 128 0 242 245] \
  27.     #( #three  ) ) >
  28.  
  29. <primitive 98 #Two \
  30.     <primitive 97 #Two #Object #Smalltalk:prelude/tests.st \
  31.     #(  ) \
  32.     #( #four #two:  ) \
  33.     temp 2 2 > >
  34.  
  35.